home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8508.d64 / listing 1 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  803b  |  29 lines
  1. 90 GOTO 200
  2. 100 REM >> UP - SCHLEIFE <<
  3. 110 :
  4. 120 PRINT" <TASTE>";:WAIT 198,1:POKE198,0:FORI=1TO7:PRINTCHR$(20);:NEXT
  5. 130 :
  6. 140 FOR I=1 TO 100:NEXT
  7. 150 TI$="000000":FOR I = 0 TO 255:POKE 53280,I AND 15:NEXT:PRINTTI$:RETURN
  8. 160 :
  9. 170 REM >> UP - CURSORBLINKEN AUS <<
  10. 180 :
  11. 190 POKE 207,0:POKE 204,1:PRINT" ":RETURN
  12. 200 REM -------------------
  13. 210 REM -- HAUPTPROGRAMM --
  14. 220 REM -------------------
  15. 230 :
  16. 240 PRINTCHR$(147)"DEMO FUER SYSTEMBESCHLEUNIGUNGEN (BASIC)";
  17. 250 PRINT"----------------------------------------"
  18. 260 PRINT"1) NORMALZUSTAND";:GOSUB100
  19. 270 :
  20. 280 PRINT"2) VERKUERZTER INTERRUPT";:POKE788,52:GOSUB 100:POKE 788,49
  21. 290 :
  22. 300 PRINT"3) HAEUFIGE INTERRUPTS";:POKE 56325,20:POKE204,0:GOSUB100:GOSUB170
  23. 310 :
  24. 320 PRINT"4) SELTENE  INTERRUPTS";:POKE 56325,150:POKE204,0:GOSUB100:GOSUB170
  25. 330 SYS64931:REM NORMALZUSTAND EIN
  26. 340 :
  27. 350 PRINT"5) BILDSCHIRM ABGESCHALTET ";:POKE53265,PEEK(53265) AND 239:GOSUB140
  28. 360 POKE 53265,PEEK(53265) OR 16:PRINT"** ENDE **"
  29.